home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aesobjc1.s < prev    next >
Text File  |  1989-04-06  |  1KB  |  50 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.         .include        "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Object Library routines 1 of 2.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; objc_add
  18. ; objc_delete
  19. ; objc_draw
  20. ; objc_find
  21. ; objc_order
  22. ; objc_change
  23. ;-------------------------------------------------------------------------
  24.  
  25. _objc_add::
  26.           AControl  40,2,1,1
  27.           bra.s     objc_do
  28. _objc_delete::
  29.           AControl  41,1,1,1
  30.           bra.s     objc_do
  31. _objc_draw::
  32.           AControl  42,6,1,1
  33.           bra.s     objc_do
  34. _objc_find::
  35.           AControl  43,4,1,1
  36.           bra.s     objc_do
  37. _objc_order::
  38.           AControl  45,2,1,1
  39.           bra.s     objc_do
  40. _objc_change::
  41.           AControl  47,8,1,1
  42. objc_do:
  43.           .cargs    #4,.ptree.l,.intin
  44.           lea       .intin(sp),a1       ; -> intin
  45.           lea       .ptree(sp),a0       ; -> addrin
  46.           ACall     RET2USER
  47.  
  48. ;         end of source
  49.  
  50.